home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 121 / Tiger_Disk_121_20xx_Tiger-Crew-Disk_de_Side_B.d64 / datei-programm / datei-programm .a7ae (.txt)
Encoding:
Commodore BASIC  |  2000-01-01  |  4.9 KB  |  154 lines
  1. 10 ifpeek(828)<>160thenload"msp-sort",8,1
  2. 20 dimb$(2000):x=-1:so=0
  3. 30 k=53280:pokek,.:pokek+1,.:e=peek(186):forl=1to9:readda$(l):next:goto300
  4. 40 fa=int(rnd(1)*15)+1:iffa=0then40
  5. 50 iffa=f1then40
  6. 60 f1=fa:return
  7. 70 print"[147]keine daten vorhanden!":gosub240:goto310
  8. 80 print"[147]zum scratchen einer datei 'l' eingeben, dann die kennziffer der datei!"
  9. 90 print" return = menue "
  10. 100 c$="":input"kennziffer   $[157][157][157]";c$:ifc$="$"thengosub140:goto100
  11. 110 ifc$="l"thenle=1:goto100
  12. 120 ifle=1thenle=0:d$="datei / "+c$+".dat":open15,e,15,"s:"+d$:close15:goto100
  13. 130 return
  14. 140 ife<8thene=8
  15. 150 print"[147]":open1,e,0,"$":poke781,1:sys65478:getaa$,aa$:ee$=chr$(0)
  16. 160 getaa$,aa$,hh$,ll$:ifstthensys65484:close1:goto200
  17. 170 printasc(hh$+ee$)+256*asc(ll$+ee$);
  18. 180 getaa$,bb$:ifaa$thenprintaa$bb$;:goto180
  19. 190 printaa$:goto160
  20. 200 gosub240:return
  21. 210 datadaten eingeben,daten ausgeben,daten drucken,daten speichern,daten laden
  22. 220 datadaten sortieren,daten loeschen,daten aendern,ende
  23. 230 print"loeschen = return"
  24. 240 geta$:ifa$=""then240
  25. 250 return
  26. 260 open15,e,15
  27. 270 input#15,aa,bb$,cc,dd:ifaa<>0thenprint" diskfehler ":goto290
  28. 280 return
  29. 290 print,aa;bb$;cc;dd:gosub240:close2:close15:goto280
  30. 300 sp=1
  31. 310 poke53265,11:print"[147]              dateiprogramm"
  32. 315 iflo=1thenlo=0:poke53265,27:gosub1200:goto310
  33. 320 printtab(17)"[158][175][175][175][175][175][175][175]":printtab(17)" menue [153]"
  34. 330 forl=1to9:gosub40:poke646,fa:print""tab(9)l;"  =  ";da$(l):next:print"[155]":poke53265,27
  35. 340 gosub240:a=val(a$):ifa<1ora>9then340
  36. 350 onagoto360,460,460,660,760,840,880,960,860
  37. 360 print"[147] daten-eingabe / return = menue":print" ^ = vorher. begriff aendern":x=x+1
  38. 370 ifx>1999thenprint"datei voll!":x=x-1:gosub240:goto310
  39. 375 printtab(34)"[158]00[146][155][145]"
  40. 380 b$(x)="":input" begriff ";b$(x)
  41. 390 ifb$(x)=""thenx=x-1:goto310
  42. 400 ifb$(x)="^"thenifx>0thenx=x-1:print"[145][145][145]":goto380
  43. 410 ifx=0then450
  44. 415 b1$=left$(b$(x),4)
  45. 420 fory=0tox-1
  46. 430 ifb1$=left$(b$(y),4)thenprint""b$(y):gosub230:ifa$=chr$(13)thenz=1:y=x-1
  47. 440 next:ifz=1thenz=0:goto380
  48. 450 x=x+1:sp=0:so=0:goto370
  49. 460 ifx<0then70
  50. 470 c=3:ifa=3thenc=4:goto580
  51. 480 print"[147]suchen ? [space =  nein [146]]":gosub240:ifa$=" "then570
  52. 481 print"bestimmte nummer ? [space =  nein [146]]":gosub240:ifa$=" "then490
  53. 482 an=0:su$="":input"nummer    01[157][157][157][157]";su$
  54. 483 ifsu$=""then310
  55. 484 fori=0tox:ifsu$=right$(b$(i),len(su$))thenprint""b$(i):an=an+1
  56. 485 ifan>0thenifan/12=int(an/12)thenprinttab(33)"[145][145]taste[146]":gosub240:print"[147]":an=0
  57. 486 next:printtab(33)"taste[146]":gosub240:print"[147]":goto482
  58. 490 print"[147]return = menue / * = alle begriffe"
  59. 500 su$="":input"suchbegriff  a[157][157][157]";su$
  60. 510 ifsu$=""then310
  61. 520 ifsu$="*"then570
  62. 530 ifso=1thengosub1040:goto490
  63. 540 ifasc(su$)<48orasc(su$)>90thenprint"[145][145][145]":goto500
  64. 550 fori=0tox:ifsu$=left$(b$(i),len(su$))thenprint""b$(i):gosub240
  65. 560 next:goto490
  66. 570 print"[147] f1/f3 = 2 seiten weiter/zurueck [146]":print" space = weiter":gosub240:print"[147]"
  67. 580 open1,c:ifc=3thenforb=0tox:a$=""
  68. 585 ifc=4thenforb=0toxstep2:a$=""
  69. 590 ifb>0thenifc=3thenifb/23=int(b/23)thengosub240:print"[147]":ifa$="e"thenb=x:print"taste!":goto640
  70. 600 ifc=3thenifa$=chr$(133)thenifb<(x-23)thenb=b+23:goto630
  71. 610 ifc=3thenifa$=chr$(134)thenifb>69thenb=b-69:goto630
  72. 620 ifb>0thenifc=4thenifb/124=int(b/124)thenford=1to10:print#1:next
  73. 630 ifc=3thenprint#1,b$(b)
  74. 635 ifc=4thenprint#1,b$(b);tab(40-len(b$(b)))b$(b+1)
  75. 640 next:print#1:close1:ifc=3thengosub240:goto310
  76. 650 goto340
  77. 660 ifx<0then70
  78. 670 gosub80:ifc$=""then310
  79. 680 c=val(c$):ifc<1orc>999then670
  80. 690 d$="datei / "+c$+".dat":ife<8thene=8
  81. 700 ifh=1thenopen15,e,15,"s:"+d$:close15
  82. 710 open2,e,2,d$+",s,w":gosub260:ifaa<>0then310
  83. 720 print"[147]daten gespeichert !"
  84. 730 forf=0tox:print"";f:print#2,b$(f):gosub270:ifaa<>0thenf=x
  85. 740 next:close2:close15:sp=1:ifh=1thenh=0:goto860
  86. 750 goto310
  87. 760 gosub80:ifc$=""then310
  88. 770 c=val(c$):ifc>999then760
  89. 780 d$="datei / "+c$+".dat":ife<8thene=8
  90. 790 open2,e,2,d$+",s,r":xx=x:x=x+1:gosub260:ifaa<>0thenx=xx:goto310
  91. 800 print"[147]daten geladen !":xy=1
  92. 810 ifx<2000thenprint"";xy:input#2,b$(x):ifst<>64thenx=x+1:xy=xy+1:goto810
  93. 820 ifx=2000thenx=x-1:print"datei voll!"
  94. 830 close2:close15:gosub240:goto310
  95. 840 ifx<0then70
  96. 850 print"[147]        daten werden sortiert !":b$(x+1)="":sys828:sp=0:so=1:goto310
  97. 860 ifx=>0thenifsp=0thenh=1:c$="0":goto690
  98. 870 print"[147] neustart ohne datenverlust mit":print"goto310":print"[145][145][145][145]":end
  99. 880 ifx<0then70
  100. 890 print"[147]bestimmter datensatz?":gosub240:ifa$="j"then1300
  101. 891 print"[147]f8 = begriff loeschen / space = weiter  f1 = 20 weiter / e = menue"
  102. 900 fori=0tox:print""b$(i):a$=""
  103. 910 gosub240:ifa$<>" "anda$<>chr$(140)anda$<>"e"anda$<>chr$(133)then910
  104. 920 ifa$=chr$(140)thenb$(i)="zzzzz":sp=0:lo=1
  105. 930 ifa$=chr$(133)thenifi<(x-21)theni=i+20
  106. 940 ifa$="e"theni=x
  107. 950 next:iflo=1then850
  108. 955 goto310
  109. 960 ifx<0then70
  110. 970 print"[147]bestimmter datensatz?":gosub240:ifa$="j"then1400
  111. 971 print"[147]f8 = begriff aendern / space = weiter   f1 = 20 weiter / e = menue"
  112. 980 fori=0tox:print""b$(i):a$=""
  113. 990 gosub240:ifa$<>" "anda$<>chr$(140)anda$<>"e"anda$<>chr$(133)then990
  114. 1000 ifa$=chr$(140)thenne$="":print"  "b$(i):input"[145]";ne$:ifne$<>""thenb$(i)=ne$:sp=0
  115. 1010 ifa$=chr$(133)thenifi<(x-21)theni=i+20
  116. 1020 ifa$="e"theni=x
  117. 1030 next:goto310
  118. 1040 print" +[146] = naechster  begriff":print" -[146] = vorheriger begriff"
  119. 1050 ifsu$=b$(0)then1140
  120. 1060 su=int(log(x)/log(2)):ss=2^su-1
  121. 1070 fori=suto0step-1
  122. 1080 ifb$(ss)<su$thenss=ss+2^i
  123. 1090 ifb$(ss)>su$thenss=ss-2^i
  124. 1100 ifss<0thenss=0
  125. 1110 ifss>x-1thenss=x-1
  126. 1120 nexti
  127. 1130 ifb$(ss)<su$thenss=ss+1
  128. 1140 print""b$(ss):gosub240
  129. 1150 ifa$="+"thenss=ss+1:ifss<=xthen1140
  130. 1155 ifa$="+"thenifss>xthenss=0:goto1140
  131. 1160 ifa$="-"thenss=ss-1:ifss=>0then1140
  132. 1165 ifss<0thenss=x:goto1140
  133. 1170 return
  134. 1200 print"moment!":x1=0:fori=0tox:ifb$(i)="zzzzz"thenb$(i)="":x1=x1+1
  135. 1210 next
  136. 1220 x=x-x1:return
  137. 1300 ds$="":input"datensatz ";ds$:ifds$=""theniflo=1then850
  138. 1301 ifds$=""theniflo=0then310
  139. 1305 print"f8 = begriff loeschen / space = weiter  e = menue"
  140. 1310 fori=0tox:ifds$=left$(b$(i),len(ds$))thenprint""b$(i)" ?":gosub1500
  141. 1350 next:goto1300
  142. 1400 ds$="":input"datensatz ";ds$:ifds$=""then310
  143. 1401 print"f8 = begriff aendern / space = weiter   e = menue"
  144. 1410 fori=0tox:ifds$=left$(b$(i),len(ds$))thenprint"  "b$(i):gosub1600
  145. 1450 next:goto1400
  146. 1500 gosub240:ifa$<>" "anda$<>chr$(140)anda$<>"e"then1500
  147. 1510 ifa$=chr$(140)thenb$(i)="zzzzz":sp=0:lo=1:return
  148. 1520 ifa$="e"theni=x
  149. 1530 return
  150. 1600 gosub240:ifa$<>" "anda$<>chr$(140)anda$<>"e"then1600
  151. 1610 ifa$=chr$(140)thenne$="":input"[145]";ne$:ifne$<>""thenb$(i)=ne$:sp=0:return
  152. 1620 ifa$="e"theni=x
  153. 1630 return
  154.